How Many Bugs in a Box/How Many Bugs in a Box.cdr/bugs/act7/00028.ls

Text File | 1995-03-28 | 7.3 KB | 268 lines

on animateall
  global sblist
  if count(sblist) > 0 then
    repeat with xxx = 1 to count(sblist)
      animate(getAt(sblist, xxx))
    end repeat
  end if
end

on initgame
  global WhichBug, prisoners, buglist
  generatebugs()
  set prisoners to [:]
  repeat with xxx = 1 to count(buglist)
    addProp(prisoners, getPropAt(buglist, xxx), 0)
  end repeat
  set WhichBug to 1
end

on catchbug chanofme, feedme
  global sblist, bugcaptive, captivechannel, mybugsound
  set captivechannel to chanofme
  set bugcaptive to feedme
  settask(bugcaptive, #caught)
  set thingy to getbugtype(bugcaptive)
  if (thingy < 1) or (thingy > 13) then
    exit
  end if
  set mybugsound to "bugsound" & thingy
end

on getoutbug
  global sblist, buglist, bugcast, prisoners, tablecast, genericbug, bugcaptive, mybugsound
  set stiger to the clickOn - 5
  if count(sblist) > 16 then
    exit
  end if
  if getAt(prisoners, stiger) > 0 then
    setAt(prisoners, stiger, getAt(prisoners, stiger) - 1)
    repeat with xxx = 1 to count(prisoners)
      puppetSprite(xxx + 5, 1)
      if getAt(prisoners, xxx) > 0 then
        set the castNum of sprite (5 + xxx) to getAt(tablecast, getPropAt(prisoners, xxx)) + 10 - getAt(prisoners, xxx)
        next repeat
      end if
      set the castNum of sprite (5 + xxx) to getAt(tablecast, 13) - 1
    end repeat
    set xxx to freechan()
    sactivate(xxx, genericbug)
    set bugtype to getPropAt(prisoners, stiger)
    set the castNum of sprite xxx to getAt(bugcast, bugtype)
    set the locH of sprite xxx to the mouseH
    set the locV of sprite xxx to the mouseV
    set spawn to birth(script "bughive", xxx, bugtype)
    set bugcaptive to spawn
    addProp(sblist, xxx, spawn)
    settask(spawn, #return)
    dontPassEvent()
  end if
end

on pulloutnew zarniwhoop
  global sblist, buglist, bugcast, prisoners, tablecast, genericbug, bugcaptive, mybugsound, captivechannel
  set stiger to zarniwhoop - 11
  set xxx to freechan()
  sactivate(xxx, genericbug)
  set bugtype to getPropAt(buglist, stiger)
  set the castNum of sprite xxx to getAt(bugcast, bugtype)
  set the locH of sprite xxx to the mouseH
  set the locV of sprite xxx to the mouseV
  set spawn to birth(script "bughive", xxx, bugtype)
  set bugcaptive to spawn
  set captivechannel to xxx
  addProp(sblist, xxx, spawn)
  settask(spawn, #caught)
  set mybugsound to "bugsound" & bugtype
  dontPassEvent()
end

on pulloutnewold zarniwhoop
  global buglist
  set stiger to zarniwhoop - 11
  addbug(getPropAt(buglist, stiger))
end

on releasebug
  global bugcaptive
  settask(bugcaptive, #return)
end

on InTheCagePal
  global bugcaptive, buglist, bugnumber, WhichBug, prisoners, sblist, captivechannel, bgroup, tablecast, closedbox
  set whichcage to random(count(buglist))
  if getaProp(buglist, getbugtype(bugcaptive)) then
    set whogot to getbugtype(bugcaptive)
    if getaProp(prisoners, whogot) < 10 then
      settask(bugcaptive, #killhim)
      puppetSound("drop1")
      updateStage()
      animateall()
      setaProp(prisoners, whogot, getaProp(prisoners, whogot) + 1)
      repeat with xxx = 1 to count(prisoners)
        puppetSprite(xxx + 5, 1)
        if getAt(prisoners, xxx) > 0 then
          set the castNum of sprite (5 + xxx) to getAt(tablecast, getPropAt(prisoners, xxx)) + 10 - getAt(prisoners, xxx)
        end if
      end repeat
      puppetSprite(WhichBug, 0)
      puppetSprite(22, 1)
    else
      settask(bugcaptive, #frighten)
    end if
  else
    settask(bugcaptive, #frighten)
  end if
  set the castNum of sprite 11 to closedbox
end

on endgame
  global prisoners, buglist, game7level, ogre, bugout, rewardlist
  if bugout = 1 then
    set bugout to 0
  else
    exit
  end if
  if (game7level < 3) and inside(the clickLoc, rect(the left of sprite 2, the top of sprite 2, the right of sprite 2, the bottom of sprite 2)) then
    saylist()
    exit
  end if
  set stiglits to the frame
  puppetSound(0)
  if prisoners = buglist then
    set the mouseout of ogre to 0
    talkyou("pos0" & random(7))
    set the mouseout of ogre to 1
    go(stiglits)
    haremscarem()
    repeat with xxx = 1 to 48
      puppetSprite(xxx, 0)
    end repeat
    updateStage()
    if not listp(rewardlist) then
      set rewardlist to []
    end if
    if count(rewardlist) < 2 then
      set smellit to [1, 2, 3, 4, 7, 5, 6]
      repeat while count(smellit)
        set thing to random(count(smellit))
        add(rewardlist, getAt(smellit, thing))
        deleteAt(smellit, thing)
      end repeat
    end if
    set thing to random(count(rewardlist))
    set whogo to getAt(rewardlist, thing)
    deleteAt(rewardlist, thing)
    go("reward" & whogo)
    exit
  else
    if game7level <> 3 then
      talkyou("neg0" & random(4))
      repeat with xxx = 1 to count(prisoners)
        if getAt(prisoners, xxx) < getAt(buglist, xxx) then
          talkyou("<" & getPropAt(prisoners, xxx))
          exit repeat
          go(stiglits)
          exit
          next repeat
        end if
        if getAt(prisoners, xxx) > getAt(buglist, xxx) then
          talkyou(">" & getPropAt(prisoners, xxx))
          exit repeat
          go(stiglits)
          exit
        end if
      end repeat
    else
      saylist()
    end if
  end if
  go(stiglits)
end

on haremscarem
  global sblist
  puppetSound("scuttle")
  repeat with xxx = 1 to count(sblist)
    settask(getAt(sblist, xxx), #frighten)
  end repeat
  repeat with xxx = 1 to 30
    animateall()
    updateStage()
  end repeat
  repeat with xxx = 1 to count(sblist)
    settask(getAt(sblist, xxx), #killhim)
  end repeat
  animateall()
end

on alcatraz
  global sblist
  repeat with xxx = 1 to count(sblist)
    settask(getAt(sblist, xxx), #escaping)
    setdest(getAt(sblist, xxx), 354, 451)
  end repeat
  repeat with xxx = 1 to 26
    animateall()
    updateStage()
  end repeat
  repeat with xxx = 1 to count(sblist)
    settask(getAt(sblist, xxx), #killhim)
  end repeat
  animateall()
end

on makeendbugs
  global sblist, prisoners, genericbug, bugcast
  set sblist to [:]
  repeat with xxx = 28 to 39
    sactivate(xxx, genericbug)
    set whobug to random(count(prisoners))
    set bugtype to getPropAt(prisoners, whobug)
    if bugtype < 7 then
      set hoffset to 3
    else
      if bugtype < 11 then
        set hoffset to 6
      else
        set hoffset to 16
      end if
    end if
    set the castNum of sprite xxx to getAt(bugcast, bugtype) + hoffset
    set the locH of sprite xxx to the locH of sprite (39 + whobug) - 50 + random(100)
    set the locV of sprite xxx to the locV of sprite (39 + whobug) - 30 + random(60)
    set spawn to birth(script "bughive", xxx, bugtype)
    addProp(sblist, xxx, spawn)
  end repeat
end

on openscroll
  set stiger to the number of cast "scroll1"
  puppetSprite(2, 1)
  startTimer()
  repeat with xxx = 0 to 5
    repeat while the timer < 10
      updateStage()
    end repeat
    set the castNum of sprite 2 to stiger + xxx
    startTimer()
  end repeat
  set the castNum of sprite 2 to the number of cast "scroll6"
  updateStage()
end

on closescroll
  set stiger to the number of cast "scroll1"
  startTimer()
  repeat with xxx = 5 down to 0
    repeat while the timer < 10
      updateStage()
    end repeat
    set the castNum of sprite 2 to stiger + xxx
    startTimer()
  end repeat
  set the castNum of sprite 2 to the number of cast "scroll0"
  set the locH of sprite 2 to -150
  updateStage()
end